home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 2
/
SPACE - Library 2 - Volume 1.iso
/
apps
/
390
/
applic
/
cdbase.dat
(
.txt
)
< prev
next >
Wrap
GFA-BASIC Atari
|
1988-11-27
|
60KB
|
2,484 lines
v0_0#=XBIOS(4)
IF v0_0#<>1 THEN
ALERT 3,"| SORRY!|MEDIUM RESOLUTION| NEEDED",0,"Colour",v2_27%
SYSTEM
ENDIF
HIDEM
v1_11$=SPACE$(20000)
v1_10$="cdbase.rsc"
ON BREAK CONT
ON ERROR GOSUB vB_4D
BLOAD v1_10$,VARPTR(v1_11$)
ON ERROR
v2_25%=XBIOS(33,&X100)
KEYPAD &X10000
DIM v5_14$(2)
DIM v6_3%(999)
DIM v5_1$(999)
DIM v5_2$(999)
DIM v5_3$(999)
DIM v5_4$(999)
DIM v5_7$(999)
DIM v5_5$(999)
DIM v6_1%(999)
DIM v5_6$(999)
DIM v5_A$(999)
DIM v5_9$(999)
DIM v5_8$(999)
DIM v5_B$(999)
DIM v5_C$(999)
DIM v5_D$(999)
DIM v5_12$(999)
DIM v5_11$(999)
DIM v5_13$(999)
DIM v5_10$(999)
DIM v5_0$(100)
v0_28#=1
v0_27#=0
v5_0$(0)=" Desk "
v5_0$(1)=" About Program "
v5_0$(2)="-----------------------"
v5_0$(3)="1"
v5_0$(4)="2"
v5_0$(5)="3"
v5_0$(6)="4"
v5_0$(7)="5"
v5_0$(8)="6"
v5_0$(9)=""
v5_0$(10)="Command"
v5_0$(11)=" Enter Data "
v5_0$(12)=" View Data "
v5_0$(13)=" Print "
v5_0$(14)=" Quit "
v5_0$(15)=""
v5_0$(16)="File"
v5_0$(17)=" Save "
v5_0$(18)=" Load "
v5_0$(19)=""
v5_0$(20)=""
SETCOLOR 0,7,7,7
SETCOLOR 1,7,0,0
SETCOLOR 2,7,7,7
SETCOLOR 3,0,0,0
GET 1,30,216,186,v1_22$
GET 280,60,474,150,v1_29$
GOSUB vB_17
GOSUB vB_46
MENU v5_0$()
MENU 12,2
MENU 13,2
MENU 17,2
OPENW 0
SETMOUSE 100,100
WHILE INKEY$<>""
WEND
ON MENU GOSUB vB_2
GET 200,68,412,160,v1_15$
SHOWM
FOR v2_9%=1 TO 20
ON MENU KEY GOSUB vB_4F
ON MENU
NEXT v2_9%
ON MENU KEY GOSUB vB_3D
DO
ON MENU
LOOP
> PROCEDURE vB_2
CLS
SETCOLOR 2,0,5,6
v0_1#=MENU(0)
MENU OFF
IF v0_1#=1 THEN
' ALERT 0,"cdBASE 1.1 by David Becker| 211-7291 Moffatt| Rmd, BC, Canada, V6Y1X9| GEnie Mail to D.BECKER8",1," PD ",out%
GOSUB vB_47
ENDIF
IF v0_1#=11 THEN
GOSUB vB_3
ENDIF
IF v0_1#=12 THEN
GOSUB vB_4
ENDIF
IF v0_1#=13 THEN
GOSUB vB_1B
ENDIF
IF v0_1#=14 THEN
v2_26%=1
IF v5_1$(1)<>"" THEN
ALERT 2,"HAVE YOU SAVED YOUR CD'S?| | EXIT!| ARE YOU SURE?",2,"Exit|Cancel",v2_26%
ENDIF
IF v2_26%=1 THEN
SETCOLOR 2,0,5,6
CLS
SYSTEM
ENDIF
ENDIF
IF v0_1#=17 THEN
GOSUB vB_6
ENDIF
IF v0_1#=18 THEN
GOSUB vB_7
ENDIF
MENU OFF
CLS
SETCOLOR 2,7,7,7
PUT 200,68,v1_15$
IF v5_1$(1)<>"" THEN
MENU 12,3
MENU 13,3
MENU 17,3
ELSE
MENU 12,2
MENU 13,2
MENU 17,2
ENDIF
RETURN
> PROCEDURE vB_3
CLS
OPENW 3,228,15
TITLEW #3," cdBASE enter "
v0_2#=1
DO
DO UNTIL v5_1$(v0_2#)=""
ADD v0_2#,1
LOOP
IF v0_2#=999 THEN
CLS
DEFTEXT 2,0,0,6
PRINT AT(9,8);"cdBASE FULL!"
DEFTEXT 1,0,0,6
PRINT AT(5,12);"Press mouse button..."
DO
LOOP UNTIL MOUSEK
EXIT IF 1=1
ENDIF
IF v0_2#=1 THEN
v0_4A#=1
ELSE
v0_4A#=v0_2#-1
ENDIF
vA_14:
DEFTEXT 2,0,0,6
PRINT AT(5,1);"PRESS RETURN TO EXIT"
DEFTEXT 3,0,0,6
PRINT AT(6,2);" Record #";v0_2#
DEFTEXT 2,0,0,6
PRINT AT(1,3);"Title:"
DEFTEXT 1,0,0,6
KEYDEF 1,v5_1$(v0_4A#)
FORM INPUT 27,v5_1$(v0_2#)
EXIT IF v5_1$(v0_2#)=""
IF LEFT$(v5_1$(v0_2#),1)=" " THEN
v5_1$(v0_2#)=""
EXIT IF 1=1
ENDIF
PRINT AT(5,1);" "
DEFTEXT 2,0,0,6
PRINT AT(1,6);"Artist:"
DEFTEXT 1,0,0,6
KEYDEF 1,v5_2$(v0_4A#)
FORM INPUT 24,v5_2$(v0_2#)
DEFTEXT 2,0,0,6
PRINT AT(1,9);"Style:"
KEYDEF 1,v5_6$(v0_4A#)
DEFTEXT 1,0,0,6
FORM INPUT 12,v5_6$(v0_2#)
DEFTEXT 2,0,0,6
PRINT AT(1,12);"SPARS code:"
DEFTEXT 1,0,0,6
KEYDEF 1,v5_3$(v0_4A#)
FORM INPUT 3,v5_3$(v0_2#)
DEFTEXT 2,0,0,6
PRINT AT(1,15);"Length:"
KEYDEF 1,v5_4$(v0_4A#)
DEFTEXT 1,0,0,6
FORM INPUT 5,v5_4$(v0_2#)
DEFTEXT 2,0,0,6
PRINT AT(1,18);"Rating:"
DEFTEXT 1,0,0,6
KEYDEF 1,v5_7$(v0_4A#)
FORM INPUT 1,v5_7$(v0_2#)
DEFTEXT 3,0,0,6
PRINT AT(1,20);"'E' edits/ANY KEY continues"
DO
v1_2E$=INKEY$
LOOP UNTIL v1_2E$<>""
IF v1_2E$="e" OR v1_2E$="E" THEN
CLS
v0_4A#=v0_2#
PRINT AT(1,20);" EDITING / F1 recalls field"
GOTO vA_14
ENDIF
CLS
LOOP
KEYDEF 1,""
SETCOLOR 2,7,7,7
CLOSEW #3
OPENW 0
CLS
SETCOLOR 2,0,5,6
IF v5_1$(v0_2#)="" THEN
v0_2#=1
ENDIF
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_4
IF v5_1$(1)="" THEN
GOTO vA_6
ENDIF
CLS
GOSUB vB_10
v0_2#=1
IF v0_7#=1 THEN
GOSUB vB_D
ENDIF
DO
IF v0_7#<>1 THEN
GOSUB vB_D
ENDIF
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
PRINT AT(39,13);v5_4$(v0_2#)
PRINT AT(38,14);v0_2#;"/";v0_13#
IF v2_1E%=v0_2# THEN
DEFTEXT 2,0,0,6
TEXT 520,120,CHR$(8)
DEFTEXT 1,0,0,6
ENDIF
DO
EXIT IF v5_1$(1)=""
EXIT IF MOUSEK
v1_F$=INKEY$
IF v1_F$<>"" THEN
EXIT IF v1_F$="+" OR v1_F$="-" OR v1_F$="q" OR v1_F$="Q"
GOSUB vB_9
ENDIF
IF v0_27#=0 THEN
IF MOUSEX>55 AND MOUSEX<120 AND MOUSEY>40 AND MOUSEY<110 THEN
GOSUB vB_32
GOSUB vB_9
ENDIF
ENDIF
EXIT IF v1_F$="q" OR v1_F$="Q"
LOOP
EXIT IF v1_F$="Q" OR v1_F$="q"
EXIT IF MOUSEX>237 AND MOUSEX<261 AND MOUSEY>7 AND MOUSEY<17 AND MOUSEK=1
EXIT IF v0_7#=0
IF v1_F$="-" THEN
SUB v0_2#,1
IF v0_2#<1 THEN
v0_2#=v0_7#
ENDIF
ENDIF
IF v1_F$="+" THEN
ADD v0_2#,1
ENDIF
IF MOUSEK=2 THEN
SUB v0_2#,1
IF v0_2#<1 THEN
v0_2#=v0_7#
ENDIF
ENDIF
IF MOUSEK=1 THEN
ADD v0_2#,1
ENDIF
IF v5_1$(v0_2#)="" THEN
v0_2#=1
ENDIF
LOOP
vA_6:
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_6
v5_14$(1)="cdBASE Data File"
v2_B%=0
v1_D$=""
IF v5_1$(1)<>"" THEN
DEFTEXT 2,0,0,6
PRINT AT(36,1);"SAVE FILE"
DEFTEXT 1,0,0,6
v1_21$=DIR$(0)+"\*.cds"
FILESELECT v1_21$,"",v1_D$
PRINT AT(36,1);" "
ENDIF
v1_2F$=DIR$(0)+"\BACKUP.CDB"
ON ERROR GOSUB vB_50
IF v1_D$<>"" AND RIGHT$(v1_D$,3)<>"CDB" THEN
IF EXIST(v1_D$)<>0 THEN
ALERT 3,"OVERWRITE EXISTING | | FILE?",1,"Yes|Cancel",v2_B%
IF v2_B%=1 THEN
IF EXIST(v1_2F$)<>0 THEN
KILL v1_2F$
ENDIF
RENAME v1_D$ AS "BACKUP.CDB"
ENDIF
ENDIF
IF v2_B%<>2 THEN
ON ERROR GOSUB vB_3B
DEFMOUSE 2
OPEN "O",#1,v1_D$
STORE #1,v5_14$(),2
STORE #1,v5_1$(),999
STORE #1,v5_2$(),999
STORE #1,v5_6$(),999
STORE #1,v5_3$(),999
STORE #1,v5_4$(),999
STORE #1,v5_7$(),999
CLOSE #1
ON ERROR
DEFMOUSE 0
IF MOUSEY<=0 THEN
SETMOUSE MOUSEX,15
ENDIF
ENDIF
ENDIF
v5_14$(1)=""
WHILE INKEY$<>""
WEND
vA_16:
RETURN
> PROCEDURE vB_7
v2_A%=0
IF v5_1$(1)<>"" THEN
ALERT 3," LOADING A NEW FILE|WILL ERASE EXISTING ONE!| | Still Continue?",1,"Yes|Cancel",v2_A%
ENDIF
IF v2_A%<>2 THEN
DEFTEXT 2,0,0,6
PRINT AT(36,1);"LOAD FILE"
DEFTEXT 1,0,0,6
v1_21$=DIR$(0)+"\*.cds"
FILESELECT v1_21$,"",v1_D$
PRINT AT(36,1);" "
IF v1_D$<>"" THEN
ON ERROR GOSUB vB_3B
OPEN "I",#1,v1_D$
RECALL #1,v5_14$(),2,v0_22#
IF v5_14$(1)<>"cdBASE Data File" THEN
CLOSE #1
GOTO vA_C
ENDIF
DEFMOUSE 2
RECALL #1,v5_1$(),999,v0_3#
RECALL #1,v5_2$(),999,v0_3#
RECALL #1,v5_6$(),999,v0_3#
RECALL #1,v5_3$(),999,v0_3#
RECALL #1,v5_4$(),999,v0_3#
RECALL #1,v5_7$(),999,v0_3#
CLOSE #1
ON ERROR
v2_1E%=0
DEFMOUSE 0
IF MOUSEY<=0 THEN
SETMOUSE MOUSEX,15
ENDIF
ENDIF
vA_C:
IF v5_14$(1)<>"cdBASE Data File" AND v1_D$<>"" THEN
ALERT 3,"THIS IS NOT A| | cdBASE FILE!",1,"Abort",v2_9%
ENDIF
ENDIF
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_9
v1_1B$=UPPER$(v1_F$)
SELECT v1_1B$
CASE "B"
GOSUB vB_2B
CASE "D"
GOSUB vB_F
CASE "E"
GOSUB vB_A
CASE "F"
IF v0_7#<>1 THEN
GOSUB vB_13
ENDIF
CASE "S"
IF v0_7#<>1 THEN
GOSUB vB_11
ENDIF
CASE "J"
IF v0_7#<>1 THEN
GOSUB vB_1A
ENDIF
CASE "O"
SWAP v0_27#,v0_28#
CASE "H"
GOSUB vB_35
CASE "M"
DEFTEXT 2,0,0,6
' PRINT AT(66,15);CHR$(249)
TEXT 520,120,CHR$(8)
DEFTEXT 1,0,0,6
IF v2_1E%<>v0_2# THEN
v2_1E%=v0_2#
ELSE
v2_1E%=0
PRINT AT(66,15);" "
ENDIF
CASE "R"
GOSUB vB_36
CASE "!"
GOSUB vB_3C
ENDSELECT
RETURN
> PROCEDURE vB_A
OPENW 3,228,15
TITLEW #3," cdBASE edit "
DEFTEXT 3,0,0,6
PRINT AT(3,1);"HIT RETURN TO SKIP FIELD"
DEFTEXT 2,0,0,6
FOR v0_5#=1 TO 1
PRINT AT(1,4);v5_1$(v0_2#)
DEFTEXT 1,0,0,6
FORM INPUT 27,v1_12$
EXIT IF v1_12$="*"
IF v1_12$<>"" AND LEFT$(v1_12$,1)<>" " THEN
v5_1$(v0_2#)=v1_12$
ELSE
PRINT AT(1,5);v5_1$(v0_2#)
ENDIF
DEFTEXT 2,0,0,6
PRINT AT(1,7);v5_2$(v0_2#)
DEFTEXT 1,0,0,6
FORM INPUT 24,v1_12$
IF v1_12$<>"" THEN
v5_2$(v0_2#)=v1_12$
ELSE
PRINT AT(1,8);v5_2$(v0_2#)
ENDIF
DEFTEXT 2,0,0,6
PRINT AT(1,10);v5_6$(v0_2#)
DEFTEXT 1,0,0,6
FORM INPUT 12,v1_12$
IF v1_12$<>"" THEN
v5_6$(v0_2#)=v1_12$
ELSE
PRINT AT(1,11);v5_6$(v0_2#)
ENDIF
DEFTEXT 2,0,0,6
PRINT AT(1,13);v5_3$(v0_2#)
DEFTEXT 1,0,0,6
FORM INPUT 3,v1_12$
IF v1_12$<>"" THEN
v5_3$(v0_2#)=v1_12$
ELSE
PRINT AT(1,14);v5_3$(v0_2#)
ENDIF
DEFTEXT 2,0,0,6
PRINT AT(1,16);v5_4$(v0_2#)
DEFTEXT 1,0,0,6
FORM INPUT 5,v1_12$
IF v1_12$<>"" THEN
v5_4$(v0_2#)=v1_12$
ELSE
PRINT AT(1,17);v5_4$(v0_2#)
ENDIF
DEFTEXT 2,0,0,6
PRINT AT(1,19);v5_7$(v0_2#)
DEFTEXT 1,0,0,6
FORM INPUT 1,v1_12$
IF v1_12$<>"" THEN
v5_7$(v0_2#)=v1_12$
ELSE
PRINT AT(1,20);v5_7$(v0_2#)
ENDIF
NEXT v0_5#
PAUSE 5
CLS
SETCOLOR 2,7,7,7
CLOSEW #3
OPENW 0
CLS
IF v0_37#=0 THEN
SETCOLOR 2,0,5,6
ELSE
SETCOLOR 2,2,6,6
ENDIF
IF v5_1$(v0_2#)="" THEN
v0_2#=1
ENDIF
GOSUB vB_D
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
IF v2_1E%=v0_2# THEN
DEFTEXT 2,0,0,6
TEXT 520,120,CHR$(8)
DEFTEXT 1,0,0,6
ENDIF
PRINT AT(38,14);v0_2#;"/";v0_13#
IF v0_37#<>0 THEN
DEFTEXT 2,0,0,6
PRINT AT(38,15);v0_F#;"/";v0_E#-1
DEFTEXT 1,0,0,6
ENDIF
PRINT AT(39,13);v5_4$(v0_2#)
v0_37#=0
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_D
v0_4#=190
DO
PUT 232,v0_4#,v1_11$
EXIT IF v0_4#<=16
SUB v0_4#,35
LOOP
RETURN
> PROCEDURE vB_F
ALERT 2,"DELETE THIS CD?",1,"Yes|No",v2_2%
IF v2_2%=1 THEN
IF v2_1E%=v0_2# THEN
v2_1E%=0
ENDIF
GOSUB vB_16
v0_18#=1
v5_1$(v0_2#)="~"
FOR v0_F#=1 TO 999
DO
EXIT IF v5_1$(v0_18#)<>"~"
ADD v0_18#,1
LOOP
EXIT IF v5_1$(v0_18#)=""
v5_9$(v0_F#)=v5_1$(v0_18#)
v5_8$(v0_F#)=v5_2$(v0_18#)
v5_A$(v0_F#)=v5_6$(v0_18#)
v5_B$(v0_F#)=v5_3$(v0_18#)
v5_C$(v0_F#)=v5_4$(v0_18#)
v5_D$(v0_F#)=v5_7$(v0_18#)
ADD v0_18#,1
NEXT v0_F#
SWAP v5_1$(),v5_9$()
SWAP v5_2$(),v5_8$()
SWAP v5_6$(),v5_A$()
SWAP v5_3$(),v5_B$()
SWAP v5_4$(),v5_C$()
SWAP v5_7$(),v5_D$()
GOSUB vB_10
ELSE
GOTO vA_B
ENDIF
IF v5_1$(v0_2#)="" THEN
v0_2#=1
ENDIF
IF v5_1$(v0_2#)<>"" THEN
GOSUB vB_D
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
PRINT AT(39,13);v5_4$(v0_2#)
PRINT AT(38,14);v0_2#;"/";v0_13#
ELSE
CLS
ENDIF
GOSUB vB_10
vA_B:
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_10
FOR v2_8%=1 TO 999
EXIT IF v5_1$(v2_8%)=""
NEXT v2_8%
v0_7#=v2_8%-1
v0_13#=v2_8%-1
RETURN
> PROCEDURE vB_13
ARRAYFILL v6_3%(),0
GOSUB vB_10
OPENW 3,228,15
TITLEW #3," cdBASE find "
CLS
DEFTEXT 2,0,0,6
PRINT AT(3,2);"SEARCH FOR WHAT STRING?"
DEFTEXT 1,0,0,6
FORM INPUT 27,v1_13$
IF v1_13$="" OR LEFT$(v1_13$,1)=" " THEN
GOTO vA_F
ENDIF
GOSUB vB_34
v2_1A%=v2_13%
GOSUB vB_2D
v2_14%=v2_13%
CLS
GOSUB vB_2A
CLS
v2_3%=v2_13%
SELECT v2_3%
CASE 1
FOR v0_8#=1 TO v0_7#
v5_5$(v0_8#)=v5_1$(v0_8#)
NEXT v0_8#
CASE 2
FOR v0_8#=1 TO v0_7#
v5_5$(v0_8#)=v5_2$(v0_8#)
NEXT v0_8#
CASE 3
FOR v0_8#=1 TO v0_7#
v5_5$(v0_8#)=v5_6$(v0_8#)
NEXT v0_8#
CASE 4
FOR v0_8#=1 TO v0_7#
v5_5$(v0_8#)=v5_3$(v0_8#)
NEXT v0_8#
CASE 5
FOR v0_8#=1 TO v0_7#
v5_5$(v0_8#)=v5_7$(v0_8#)
NEXT v0_8#
ENDSELECT
SETCOLOR 2,7,7,7
CLOSEW #3
OPENW 0
CLS
SETCOLOR 2,2,6,6
v0_E#=1
IF v2_14%=1 AND v2_1A%=1 THEN
FOR v0_B#=1 TO v0_7#
IF INSTR(UPPER$(v5_5$(v0_B#)),UPPER$(v1_13$))<>0 THEN
v6_3%(v0_E#)=v0_B#
ADD v0_E#,1
ENDIF
NEXT v0_B#
ENDIF
IF v2_14%=2 AND v2_1A%=1 THEN
FOR v0_B#=1 TO v0_7#
IF INSTR(v5_5$(v0_B#),v1_13$)<>0 THEN
v6_3%(v0_E#)=v0_B#
ADD v0_E#,1
ENDIF
NEXT v0_B#
ENDIF
IF v2_14%=1 AND v2_1A%=2 THEN
FOR v0_B#=1 TO v0_7#
IF INSTR(UPPER$(v5_5$(v0_B#)),UPPER$(v1_13$))=0 THEN
v6_3%(v0_E#)=v0_B#
ADD v0_E#,1
ENDIF
NEXT v0_B#
ENDIF
IF v2_14%=2 AND v2_1A%=2 THEN
FOR v0_B#=1 TO v0_7#
IF INSTR(v5_5$(v0_B#),v1_13$)=0 THEN
v6_3%(v0_E#)=v0_B#
ADD v0_E#,1
ENDIF
NEXT v0_B#
ENDIF
DO
IF v0_E#=1 THEN
ALERT 1," STRING NOT FOUND!| |SEARCH SEQUENCE COMPLETE",1,"OK",v2_9%
ENDIF
EXIT IF v0_E#=1
' CLOSEW #3
OPENW 3,228,15
CLS
SETCOLOR 2,2,6,6
DEFTEXT 2,0,0,6
IF v0_E#-1>1 THEN
PRINT AT(2,2);"Sublist contains: ";v0_E#-1;" CD's"
ENDIF
IF v0_E#-1=1 THEN
PRINT AT(4,2);"Sublist contains: ";v0_E#-1;" CD"
ENDIF
DEFTEXT 1,0,0,6
PRINT AT(2,16);"Do what with sublist data?"
GOSUB vB_28
v2_3%=v2_13%
CLS
SELECT v2_3%
CASE 1
SETCOLOR 2,7,7,7
CLOSEW #3
OPENW 0
CLS
SETCOLOR 2,2,6,6
DO
FOR v0_F#=1 TO 999
v0_2#=v6_3%(v0_F#)
EXIT IF v0_2#=0
IF v5_1$(v0_2#)<>"" THEN
GOSUB vB_D
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
IF v2_1E%=v0_2# THEN
DEFTEXT 2,0,0,6
TEXT 520,120,CHR$(8)
DEFTEXT 1,0,0,6
ENDIF
PRINT AT(38,14);v0_2#;"/";v0_13#
DEFTEXT 2,0,0,6
PRINT AT(38,15);v0_F#;"/";v0_E#-1
DEFTEXT 1,0,0,6
PRINT AT(39,13);v5_4$(v0_2#)
' EXIT IF g-1=1
DO
v1_16$=UPPER$(INKEY$)
IF v1_16$="E" THEN
v0_37#=1
GOSUB vB_A
ENDIF
EXIT IF MOUSEK OR v1_16$="-" OR v1_16$="+" OR v1_16$="Q"
LOOP
EXIT IF v1_16$="Q"
IF MOUSEK=2 OR v1_16$="-" AND v0_E#-1<>1 THEN
SUB v0_F#,2
IF v0_F#<0 THEN
v0_F#=v0_E#-2
ENDIF
ENDIF
EXIT IF MOUSEX>237 AND MOUSEX<261 AND MOUSEY>7 AND MOUSEY<17 AND MOUSEK=1
ENDIF
NEXT v0_F#
EXIT IF v0_E#-1=1
EXIT IF v1_16$="Q"
LOOP UNTIL MOUSEX>237 AND MOUSEX<261 AND MOUSEY>7 AND MOUSEY<17 AND MOUSEK=1
CLS
CLOSEW 0
CASE 2
SETCOLOR 2,7,7,7
CLOSEW 3
OPENW 0
CLS
SETCOLOR 2,2,6,6
IF v0_E#-1<>1 THEN
ALERT 1,"DELETE SUBLIST!| |Enter Parameters",0,"All|None|Part",v2_22%
ELSE
ALERT 1,"DELETE SUBLIST!| Are You Sure?",1,"Delete|Cancel",v2_22%
ENDIF
SELECT v2_22%
CASE 1
GOSUB vB_16
v0_18#=1
FOR v0_F#=1 TO 999
v0_2#=v6_3%(v0_F#)
IF v2_1E%=v0_2# THEN
v2_1E%=0
ENDIF
EXIT IF v0_2#=0
v5_1$(v0_2#)="~"
NEXT v0_F#
CASE 2
GOTO vA_E
CASE 3
GOSUB vB_16
v0_18#=1
FOR v0_F#=1 TO 999
v0_2#=v6_3%(v0_F#)
EXIT IF v0_2#=0
GOSUB vB_D
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
IF v2_1E%=v0_2# THEN
DEFTEXT 2,0,0,6
TEXT 520,120,CHR$(8)
DEFTEXT 1,0,0,6
ENDIF
PRINT AT(38,14);v0_2#;"/";v0_13#
DEFTEXT 2,0,0,6
PRINT AT(38,15);v0_F#;"/";v0_E#-1
DEFTEXT 1,0,0,6
PRINT AT(39,13);v5_4$(v0_2#)
GOSUB vB_44
IF v2_13%=4 THEN
EXIT IF 1=1
ENDIF
IF v2_13%=1 THEN
IF v2_1E%=v0_2# THEN
v2_1E%=0
ENDIF
v5_1$(v0_2#)="~"
DEFTEXT 2,4,0,32
TEXT 368,112,"DELETE!"
DEFTEXT 1,0,0,6
PAUSE 10
ENDIF
NEXT v0_F#
ENDSELECT
FOR v0_F#=1 TO 999
DO
EXIT IF v5_1$(v0_18#)<>"~"
ADD v0_18#,1
LOOP
EXIT IF v5_1$(v0_18#)=""
IF v2_1E%=v0_18# THEN
v2_1E%=v0_F#
ENDIF
v5_9$(v0_F#)=v5_1$(v0_18#)
v5_8$(v0_F#)=v5_2$(v0_18#)
v5_A$(v0_F#)=v5_6$(v0_18#)
v5_B$(v0_F#)=v5_3$(v0_18#)
v5_C$(v0_F#)=v5_4$(v0_18#)
v5_D$(v0_F#)=v5_7$(v0_18#)
ADD v0_18#,1
NEXT v0_F#
SWAP v5_1$(),v5_9$()
SWAP v5_2$(),v5_8$()
SWAP v5_6$(),v5_A$()
SWAP v5_3$(),v5_B$()
SWAP v5_4$(),v5_C$()
SWAP v5_7$(),v5_D$()
GOSUB vB_10
ALERT 0,"DELETION SEQUENCE COMPLETE!",1,"OK",v2_17%
EXIT IF 1=1
vA_E:
CASE 3
v1_1C$=""
TITLEW #3," cdBASE print "
CLS
DO
DEFTEXT 2,0,0,6
PRINT AT(5,5);"Lines per page?";
DEFTEXT 1,0,0,6
FORM INPUT 3,v1_1F$
v0_1D#=VAL(v1_1F$)
LOOP UNTIL v0_1D#<>0
CLS
GOSUB vB_4B
CLS
DEFTEXT 2,0,0,6
PRINT AT(4,7);"Set Auto Justification"
DEFTEXT 1,0,0,6
GOSUB vB_4C
CLS
PRINT AT(5,8);"Turn on printer."
DEFTEXT 2,0,0,6
PRINT AT(5,9);"Adjust paper."
DEFTEXT 1,0,0,6
PRINT AT(5,11);"Press mouse button"
PRINT AT(5,12);"or any key to begin..."
DO
EXIT IF MOUSEK
EXIT IF INKEY$<>""
LOOP
CLS
IF GEMDOS(17)=0 THEN
DEFTEXT 2,0,0,6
PRINT AT(3,5);"PRINTER NOT RESPONDING!"
DEFTEXT 1,0,0,6
PRINT AT(6,11);"Press mouse button"
PRINT AT(6,12);" or any key..."
DO
EXIT IF INKEY$<>""
LOOP UNTIL MOUSEK
SETCOLOR 2,7,7,7
CLOSEW #3
OPENW 0
CLS
SETCOLOR 2,2,6,6
GOTO vA_4
ENDIF
v0_1E#=0
PRINT AT(9,8);"PRINTING..."
FOR v0_F#=1 TO 999
v0_14#=v6_3%(v0_F#)
EXIT IF v0_14#=0
IF v0_45#=1 THEN
FOR v2_31%=1 TO v0_44#
LPRINT " ";
NEXT v2_31%
ENDIF
IF v0_3E#=1 THEN
LPRINT USING "\..........................\",v5_1$(v0_14#);
ENDIF
IF v0_3F#=1 THEN
LPRINT USING "\.......................\",v5_2$(v0_14#);
ENDIF
IF v0_40#=1 THEN
LPRINT USING "\...........\",v5_6$(v0_14#);
ENDIF
IF v0_41#=1 THEN
LPRINT USING "\..\",v5_3$(v0_14#);
ENDIF
IF v0_42#=1 THEN
LPRINT v5_7$(v0_14#);
LPRINT " ";
ENDIF
IF v0_43#=1 THEN
LPRINT v5_4$(v0_14#);
ENDIF
LPRINT ""
ADD v0_1E#,1
IF v0_1E#=v0_1D# AND v0_14#<>v0_7# THEN
v0_1E#=0
CLS
DEFTEXT 3,0,0,6
PRINT AT(6,7);"After page prints,"
PRINT AT(6,8);" adjust paper."
DEFTEXT 1,0,0,6
PRINT AT(6,11);"Press mouse button"
PRINT AT(4,12);"or any key to continue."
DEFTEXT 2,0,0,6
PRINT AT(4,14);"* key aborts printout"
DEFTEXT 1,0,0,6
DO
v1_1C$=INKEY$
EXIT IF v1_1C$<>""
EXIT IF MOUSEK
LOOP
CLS
PRINT AT(9,8);"PRINTING..."
ENDIF
EXIT IF v1_1C$="*" OR INKEY$="*"
NEXT v0_F#
vA_4:
' EXIT IF 1=1
CASE 4
DEFTEXT 2,0,0,6
PRINT AT(5,8);"Save sublist"
PRINT AT(5,10);"to disk..."
DEFTEXT 1,0,0,6
GOSUB vB_16
v0_12#=1
FOR v0_11#=1 TO 999
EXIT IF v6_3%(v0_12#)=0
v5_9$(v0_11#)=v5_1$(v6_3%(v0_12#))
v5_8$(v0_11#)=v5_2$(v6_3%(v0_12#))
v5_A$(v0_11#)=v5_6$(v6_3%(v0_12#))
v5_B$(v0_11#)=v5_3$(v6_3%(v0_12#))
v5_C$(v0_11#)=v5_4$(v6_3%(v0_12#))
v5_D$(v0_11#)=v5_7$(v6_3%(v0_12#))
ADD v0_12#,1
NEXT v0_11#
v5_14$(1)="cdBASE Data File"
v1_21$=""
v1_D$=""
v1_21$=DIR$(0)+"\*.cds"
SETMOUSE 30,30,1
FILESELECT v1_21$,"",v1_D$
v1_2F$=DIR$(0)+"\BACKUP.CDB"
ON ERROR GOSUB vB_51
IF v1_D$<>"" AND RIGHT$(v1_D$,3)<>"CDB" THEN
IF EXIST(v1_D$)<>0 THEN
ALERT 1,"OVERWRITE EXISTING| FILE?",1,"Yes|Cancel",v2_B%
IF v2_B%=1 THEN
IF EXIST(v1_2F$)<>0 THEN
KILL v1_2F$
ENDIF
RENAME v1_D$ AS "BACKUP.CDB"
ENDIF
ENDIF
IF v2_B%<>2 THEN
DEFMOUSE 2
ON ERROR GOSUB vB_4E
OPEN "O",#1,v1_D$
STORE #1,v5_14$(),2
STORE #1,v5_9$(),999
STORE #1,v5_8$(),999
STORE #1,v5_A$(),999
STORE #1,v5_B$(),999
STORE #1,v5_C$(),999
STORE #1,v5_D$(),999
CLOSE #1
ON ERROR
DEFMOUSE 0
IF MOUSEY<=0 THEN
SETMOUSE MOUSEX,15
ENDIF
ENDIF
ENDIF
vA_15:
v5_14$(1)=""
CASE 5
EXIT IF v2_3%=5
ENDSELECT
LOOP
v0_2#=1
vA_F:
SETCOLOR 2,7,7,7
CLOSEW #3
OPENW 0
CLS
SETCOLOR 2,0,5,6
IF v5_1$(v0_2#)<>"" THEN
' SETCOLOR 2,0,5,6
GOSUB vB_D
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
IF v2_1E%=v0_2# THEN
DEFTEXT 2,0,0,6
TEXT 520,120,CHR$(8)
DEFTEXT 1,0,0,6
ENDIF
PRINT AT(38,14);v0_2#;"/";v0_13#
PRINT AT(39,13);v5_4$(v0_2#)
ELSE
CLS
ENDIF
SETCOLOR 2,0,5,6
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_16
FOR v2_7%=1 TO 999
v5_9$(v2_7%)=""
v5_8$(v2_7%)=""
v5_A$(v2_7%)=""
v5_B$(v2_7%)=""
v5_C$(v2_7%)=""
v5_D$(v2_7%)=""
NEXT v2_7%
RETURN
> PROCEDURE vB_17
' DEFLINE 1,9,0,0
' RBOX 232,70,382,118
GRAPHMODE 2
DEFFILL 1,2,4
PCIRCLE 278,83,34
PCIRCLE 278,83,33
DEFFILL 1,2,8
PCIRCLE 278,83,13
DEFFILL 3,2,8
PCIRCLE 278,83,6
DEFTEXT 1,1,0,32
TEXT 254,102,"cdBASE"
DEFTEXT 2,1,0,32
TEXT 252,103,"cdBASE"
DEFTEXT 1,1,0,6
TEXT 254,111,"Compact Disk"
TEXT 254,119," Database"
DEFTEXT 1,0,0,6
GRAPHMODE 1
DEFFILL 1,1
RETURN
> PROCEDURE vB_1A
DEFTEXT 2,0,0,6
PRINT AT(39,13);"JUMP? "
PRINT AT(38,14);" "
PRINT AT(39,14);
FORM INPUT 3,v1_17$
DEFTEXT 1,0,0,6
v0_17#=VAL(v1_17$)
IF v0_17#>v0_7# OR v0_17#<1 THEN
PRINT AT(39,13);v5_4$(v0_2#)
PRINT AT(38,14);v0_2#;"/";v0_13#
ELSE
v0_2#=v0_17#
GOSUB vB_D
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
IF v2_1E%=v0_2# THEN
DEFTEXT 2,0,0,6
TEXT 520,120,CHR$(8)
DEFTEXT 1,0,0,6
ENDIF
PRINT AT(39,13);v5_4$(v0_2#)
PRINT AT(38,14);v0_2#;"/";v0_13#
ENDIF
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_1B
v1_1C$=""
IF v5_1$(1)="" THEN
GOTO vA_5
ENDIF
CLS
ALERT 2,"SEND OUTPUT WHERE?",1,"Screen|Printer",v2_9%
IF v2_9%=1 THEN
CLS
GOSUB vB_10
v0_1A#=2
FOR v0_14#=1 TO v0_7#
IF v2_1E%=v0_14# THEN
DEFTEXT 3,0,0,6
ENDIF
PRINT AT(1,v0_1A#);v0_14#
DEFTEXT 2,0,0,6
PRINT AT(5,v0_1A#);v5_1$(v0_14#)
DEFTEXT 1,0,0,6
PRINT AT(33,v0_1A#);v5_2$(v0_14#)
DEFTEXT 2,0,0,6
PRINT AT(59,v0_1A#);v5_6$(v0_14#)
DEFTEXT 1,0,0,6
PRINT AT(72,v0_1A#);v5_3$(v0_14#)
DEFTEXT 2,0,0,6
PRINT AT(77,v0_1A#);v5_7$(v0_14#)
DEFTEXT 1,0,0,6
ADD v0_1A#,1
IF v0_1A#>=21 THEN
DEFTEXT 3,0,0,6
PRINT AT(9,22);"Left Mouse Or Spacebar Continues - Right Mouse Button Aborts"
DEFTEXT 1,0,0,6
DO
EXIT IF MOUSEK
LOOP UNTIL INKEY$<>""
EXIT IF MOUSEK=2
CLS
v0_1A#=2
ENDIF
NEXT v0_14#
DEFTEXT 3,0,0,6
PRINT AT(9,22);" "
PRINT AT(21,22);"Mouse Button Or Spacebar To Exit"
DEFTEXT 1,0,0,6
DO
EXIT IF INKEY$<>""
LOOP UNTIL MOUSEK
ENDIF
IF v2_9%=2 THEN
GOSUB vB_10
OPENW 3,228,15
TITLEW #3," cdBASE print "
v1_1C$=""
CLS
DO
DEFTEXT 2,0,0,6
PRINT AT(5,5);"Lines per page?";
DEFTEXT 1,0,0,6
FORM INPUT 3,v1_1F$
v0_1D#=VAL(v1_1F$)
LOOP UNTIL v0_1D#<>0
CLS
GOSUB vB_4B
CLS
DEFTEXT 2,0,0,6
PRINT AT(4,7);"Set Auto Justification"
DEFTEXT 1,0,0,6
GOSUB vB_4C
CLS
PRINT AT(5,8);"Turn on printer."
DEFTEXT 2,0,0,6
PRINT AT(5,9);"Adjust paper."
DEFTEXT 1,0,0,6
PRINT AT(5,11);"Press mouse button"
PRINT AT(5,12);"or any key to begin..."
PAUSE 10
DO
EXIT IF MOUSEK
EXIT IF INKEY$<>""
LOOP
CLS
IF GEMDOS(17)=0 THEN
DEFTEXT 2,0,0,6
PRINT AT(3,5);"PRINTER NOT RESPONDING!"
DEFTEXT 1,0,0,6
PRINT AT(6,11);"Press mouse button"
PRINT AT(6,12);" or any key..."
DO
EXIT IF INKEY$<>""
LOOP UNTIL MOUSEK
SETCOLOR 2,7,7,7
CLOSEW #3
OPENW 0
CLS
SETCOLOR 2,0,5,6
GOTO vA_3
ENDIF
PRINT AT(9,8);"PRINTING..."
v0_1E#=0
FOR v0_14#=1 TO v0_7#
IF v0_45#=1 THEN
FOR v2_31%=1 TO v0_44#
LPRINT " ";
NEXT v2_31%
ENDIF
IF v0_3E#=1 THEN
LPRINT USING "\..........................\",v5_1$(v0_14#);
ENDIF
IF v0_3F#=1 THEN
LPRINT USING "\.......................\",v5_2$(v0_14#);
ENDIF
IF v0_40#=1 THEN
LPRINT USING "\...........\",v5_6$(v0_14#);
ENDIF
IF v0_41#=1 THEN
LPRINT USING "\..\",v5_3$(v0_14#);
ENDIF
IF v0_42#=1 THEN
LPRINT v5_7$(v0_14#);
LPRINT " ";
ENDIF
IF v0_43#=1 THEN
LPRINT v5_4$(v0_14#);
ENDIF
LPRINT ""
ADD v0_1E#,1
IF v0_1E#=v0_1D# AND v0_14#<>v0_7# THEN
v0_1E#=0
CLS
DEFTEXT 3,0,0,6
PRINT AT(6,7);"After page prints,"
PRINT AT(6,8);" adjust paper."
DEFTEXT 1,0,0,6
PRINT AT(6,11);"Press mouse button"
PRINT AT(4,12);"or any key to continue."
DEFTEXT 2,0,0,6
PRINT AT(4,14);"* key aborts printout"
DEFTEXT 1,0,0,6
DO
v1_1C$=INKEY$
EXIT IF v1_1C$<>""
EXIT IF MOUSEK
LOOP
CLS
PRINT AT(9,8);"PRINTING..."
ENDIF
EXIT IF v1_1C$="*" OR INKEY$="*"
NEXT v0_14#
SETCOLOR 2,7,7,7
CLOSEW #3
OPENW 0
CLS
SETCOLOR 2,0,5,6
vA_3:
ENDIF
vA_5:
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_11
v0_2E#=0
GOSUB vB_10
ADD v0_7#,1
OPENW 3,228,15
TITLEW #3," cdBASE sort "
FOR v2_7%=1 TO 999
v6_1%(v2_7%)=v2_7%
v5_12$(v2_7%)=""
v5_11$(v2_7%)=""
v5_13$(v2_7%)=""
v5_10$(v2_7%)=""
NEXT v2_7%
FOR v2_7%=1 TO v0_7#
v5_8$(v2_7%)=v5_2$(v2_7%)
v5_9$(v2_7%)=v5_1$(v2_7%)
v5_A$(v2_7%)=v5_6$(v2_7%)
v5_B$(v2_7%)=v5_3$(v2_7%)
v5_C$(v2_7%)=v5_4$(v2_7%)
v5_D$(v2_7%)=v5_7$(v2_7%)
NEXT v2_7%
CLS
PRINT AT(4,2);"Sort using what field?"
GOSUB vB_27
IF v2_13%=6 THEN
GOTO vA_A
ENDIF
v2_3%=v2_13%
CLS
DEFTEXT 2,0,0,6
PRINT AT(7,2);"Secondary ";
DEFTEXT 1,0,0,6
PRINT "field?"
GOSUB vB_27
v2_C%=v2_13%
CLS
IF v2_13%>=1 AND v2_13%<=5 THEN
DEFTEXT 2,0,0,6
PRINT AT(7,2);"Third ";
DEFTEXT 1,0,0,6
PRINT "sort field?"
GOSUB vB_27
v2_15%=v2_13%
CLS
ENDIF
PRINT AT(4,6);"Standby..."
SELECT v2_3%
CASE 1
SWAP v5_11$(),v5_1$()
CASE 2
SWAP v5_11$(),v5_2$()
CASE 3
SWAP v5_11$(),v5_6$()
CASE 4
SWAP v5_11$(),v5_3$()
CASE 5
SWAP v5_11$(),v5_7$()
ENDSELECT
SELECT v2_C%
CASE 1
SWAP v5_12$(),v5_1$()
CASE 2
SWAP v5_12$(),v5_2$()
CASE 3
SWAP v5_12$(),v5_6$()
CASE 4
SWAP v5_12$(),v5_3$()
CASE 5
SWAP v5_12$(),v5_7$()
ENDSELECT
SELECT v2_15%
CASE 1
SWAP v5_13$(),v5_1$()
CASE 2
SWAP v5_13$(),v5_2$()
CASE 3
SWAP v5_13$(),v5_6$()
CASE 4
SWAP v5_13$(),v5_3$()
CASE 5
SWAP v5_13$(),v5_7$()
ENDSELECT
FOR v0_8#=1 TO v0_7#
v5_10$(v0_8#)=v5_11$(v0_8#)+v5_12$(v0_8#)+v5_13$(v0_8#)
NEXT v0_8#
SSORT v5_10$(),v0_7#,v6_1%()
FOR v0_8#=1 TO v0_7#
v5_2$(v0_8#)=v5_8$(v6_1%(v0_8#))
v5_1$(v0_8#)=v5_9$(v6_1%(v0_8#))
v5_6$(v0_8#)=v5_A$(v6_1%(v0_8#))
v5_3$(v0_8#)=v5_B$(v6_1%(v0_8#))
v5_4$(v0_8#)=v5_C$(v6_1%(v0_8#))
v5_7$(v0_8#)=v5_D$(v6_1%(v0_8#))
IF v0_2E#=0 AND v2_1E%=v6_1%(v0_8#) THEN
v0_2E#=1
v2_1E%=v0_8#
ENDIF
NEXT v0_8#
vA_A:
SETCOLOR 2,7,7,7
CLOSEW #3
OPENW 0
CLS
SETCOLOR 2,0,5,6
GOSUB vB_D
v0_2#=1
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
IF v2_1E%=v0_2# THEN
DEFTEXT 2,0,0,6
TEXT 520,120,CHR$(8)
DEFTEXT 1,0,0,6
ENDIF
PRINT AT(38,14);v0_2#;"/";v0_13#
PRINT AT(39,13);v5_4$(v0_2#)
GOSUB vB_10
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_27
v2_E%=0
v2_13%=0
DEFLINE 1,1,0,0
BOX 50,30,170,42
BOX 50,46,170,58
BOX 50,62,170,74
BOX 50,78,170,90
BOX 50,94,170,106
BOX 50,110,170,122
PRINT AT(10,5);"1. Title"
PRINT AT(10,7);"2. Artist"
PRINT AT(10,9);"3. Style"
PRINT AT(10,11);"4. SPARS"
PRINT AT(10,13);"5. Rating"
PRINT AT(10,15);"6. None"
SHOWM
DO
IF MOUSEK=1 AND MOUSEX>50 AND MOUSEX<170
v2_E%=MOUSEY
EXIT IF v2_E%>30 AND v2_E%<42
EXIT IF v2_E%>46 AND v2_E%<58
EXIT IF v2_E%>62 AND v2_E%<74
EXIT IF v2_E%>78 AND v2_E%<90
EXIT IF v2_E%>94 AND v2_E%<106
EXIT IF v2_E%>110 AND v2_E%<122
ENDIF
v1_1A$=INKEY$
IF v1_1A$<>"" THEN
v2_13%=VAL(v1_1A$)
EXIT IF v2_13%>=1 AND v2_13%<=6
ENDIF
LOOP
DEFTEXT 0,0,0,6
GRAPHMODE 2
IF v2_E%>30 AND v2_E%<42 OR v2_13%=1 THEN
PBOX 50,30,170,42
PRINT AT(10,5);"1. Title"
v2_13%=1
ENDIF
IF v2_E%>46 AND v2_E%<58 OR v2_13%=2 THEN
PBOX 50,46,170,58
PRINT AT(10,7);"2. Artist"
v2_13%=2
ENDIF
IF v2_E%>62 AND v2_E%<74 OR v2_13%=3 THEN
PBOX 50,62,170,74
PRINT AT(10,9);"3. Style"
v2_13%=3
ENDIF
IF v2_E%>78 AND v2_E%<90 OR v2_13%=4 THEN
PBOX 50,78,170,90
PRINT AT(10,11);"4. SPARS"
v2_13%=4
ENDIF
IF v2_E%>94 AND v2_E%<106 OR v2_13%=5 THEN
PBOX 50,94,170,106
PRINT AT(10,13);"5. Rating"
v2_13%=5
ENDIF
IF v2_E%>110 AND v2_E%<122 OR v2_13%=6 THEN
PBOX 50,110,170,122
PRINT AT(10,15);"6. None"
v2_13%=6
ENDIF
PAUSE 5
GRAPHMODE 1
DEFTEXT 1,0,0,6
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_28
v2_E%=0
v2_13%=0
DEFLINE 1,1,0,0
BOX 50,30,170,42
BOX 50,46,170,58
BOX 50,62,170,74
BOX 50,78,170,90
BOX 50,94,170,106
PRINT AT(10,5);"1. View"
PRINT AT(10,7);"2. Delete"
PRINT AT(10,9);"3. Print"
PRINT AT(10,11);"4. Save"
PRINT AT(10,13);"5. Continue"
SHOWM
DO
IF MOUSEK=1 AND MOUSEX>50 AND MOUSEX<170
v2_E%=MOUSEY
EXIT IF v2_E%>30 AND v2_E%<42
EXIT IF v2_E%>46 AND v2_E%<58
EXIT IF v2_E%>62 AND v2_E%<74
EXIT IF v2_E%>78 AND v2_E%<90
EXIT IF v2_E%>94 AND v2_E%<106
ENDIF
v1_1A$=INKEY$
IF v1_1A$<>"" THEN
v2_13%=VAL(v1_1A$)
EXIT IF v2_13%>=1 AND v2_13%<=5
ENDIF
LOOP
DEFTEXT 0,0,0,6
GRAPHMODE 2
IF v2_E%>30 AND v2_E%<42 OR v2_13%=1 THEN
PBOX 50,30,170,42
PRINT AT(10,5);"1. View"
v2_13%=1
ENDIF
IF v2_E%>46 AND v2_E%<58 OR v2_13%=2 THEN
PBOX 50,46,170,58
PRINT AT(10,7);"2. Delete"
v2_13%=2
ENDIF
IF v2_E%>62 AND v2_E%<74 OR v2_13%=3 THEN
PBOX 50,62,170,74
PRINT AT(10,9);"3. Print"
v2_13%=3
ENDIF
IF v2_E%>78 AND v2_E%<90 OR v2_13%=4 THEN
PBOX 50,78,170,90
PRINT AT(10,11);"4. Save"
v2_13%=4
ENDIF
IF v2_E%>94 AND v2_E%<106 OR v2_13%=5 THEN
PBOX 50,94,170,106
PRINT AT(10,13);"5. Continue"
v2_13%=5
ENDIF
PAUSE 5
GRAPHMODE 1
DEFTEXT 1,0,0,6
SHOWM
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_2A
PRINT AT(8,2);"SEARCHING FOR:"
v2_1B%=((27-LEN(v1_13$))/2)+1
DEFTEXT 3,0,0,6
PRINT AT(v2_1B%,3);v1_13$
DEFTEXT 1,0,0,6
DEFTEXT 2,0,0,6
PRINT AT(6,16);"ENTER SEARCH FIELD"
DEFTEXT 1,0,0,6
v2_E%=0
v2_13%=0
DEFLINE 1,1,0,0
BOX 50,30,170,42
BOX 50,46,170,58
BOX 50,62,170,74
BOX 50,78,170,90
BOX 50,94,170,106
PRINT AT(10,5);"1. Title"
PRINT AT(10,7);"2. Artist"
PRINT AT(10,9);"3. Style"
PRINT AT(10,11);"4. SPARS"
PRINT AT(10,13);"5. Rating"
SHOWM
DO
IF MOUSEK=1 AND MOUSEX>50 AND MOUSEX<170
v2_E%=MOUSEY
EXIT IF v2_E%>30 AND v2_E%<42
EXIT IF v2_E%>46 AND v2_E%<58
EXIT IF v2_E%>62 AND v2_E%<74
EXIT IF v2_E%>78 AND v2_E%<90
EXIT IF v2_E%>94 AND v2_E%<106
ENDIF
v1_1A$=INKEY$
IF v1_1A$<>"" THEN
v2_13%=VAL(v1_1A$)
EXIT IF v2_13%>=1 AND v2_13%<=5
ENDIF
LOOP
DEFTEXT 0,0,0,6
GRAPHMODE 2
IF v2_E%>30 AND v2_E%<42 OR v2_13%=1 THEN
PBOX 50,30,170,42
PRINT AT(10,5);"1. Title"
v2_13%=1
ENDIF
IF v2_E%>46 AND v2_E%<58 OR v2_13%=2 THEN
PBOX 50,46,170,58
PRINT AT(10,7);"2. Artist"
v2_13%=2
ENDIF
IF v2_E%>62 AND v2_E%<74 OR v2_13%=3 THEN
PBOX 50,62,170,74
PRINT AT(10,9);"3. Style"
v2_13%=3
ENDIF
IF v2_E%>78 AND v2_E%<90 OR v2_13%=4 THEN
PBOX 50,78,170,90
PRINT AT(10,11);"4. SPARS"
v2_13%=4
ENDIF
IF v2_E%>94 AND v2_E%<106 OR v2_13%=5 THEN
PBOX 50,94,170,106
PRINT AT(10,13);"5. Rating"
v2_13%=5
ENDIF
PAUSE 5
GRAPHMODE 1
DEFTEXT 1,0,0,6
SHOWM
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_2B
GOSUB vB_10
OPENW 1,500,180
TITLEW #1," cdBASE HELP "
CLS
DEFTEXT 2,0,0,6
PRINT AT(13,2);"cdBASE Command Mode Keyboard Commands"
DEFTEXT 1,0,0,6
PRINT AT(6,5);"L ..... LOAD (loads from disk, erases CD's in memory.)"
PRINT AT(6,6);"S ..... SAVE (saves the CD library to disk.)"
PRINT AT(6,7);"V ..... VIEW (slides out tray with first CD.)"
PRINT AT(6,8);"E ..... ENTER (F1 recalls the previous field.)"
PRINT AT(6,9);"CTL/Q.. CONTROL/Q (hitting CONTROL and Q quits cdBASE.)"
PRINT AT(6,10);"P ..... PRINT (prints to the screen or the printer.)"
PRINT AT(6,11);"? ..... ABOUT PROGRAM (important information!)"
DEFTEXT 1,0,0,6
v2_20%=0
FOR v2_1F%=1 TO v0_7#
ADD v2_20%,VAL(v5_4$(v2_1F%))
NEXT v2_1F%
IF v5_1$(1)<>"" AND INT(v2_20%/60)<>0 THEN
DEFTEXT 3,0,0,6
PRINT AT(7,15);"Total listening time for collection is ";INT(v2_20%/60);" hours!"
ENDIF
DEFTEXT 2,0,0,6
PRINT AT(4,18);" Version 1.1 Public Domain"
DEFTEXT 1,0,0,6
DEFLINE 1,1,0,0
BOX 221,135,274,145
PRINT AT(30,18);"NEXT"
SHOWM
DO
EXIT IF INKEY$<>""
LOOP UNTIL MOUSEK=1 AND MOUSEX>221 AND MOUSEX<273 AND MOUSEY>135 AND MOUSEY<145
PBOX 221,135,274,145
DEFTEXT 0,0,0,6
GRAPHMODE 2
PRINT AT(30,18);"NEXT"
GRAPHMODE 1
DEFTEXT 1,0,0,6
PAUSE 5
CLS
DEFTEXT 2,0,0,6
PRINT AT(13,2);"cdBASE View Mode Keyboard Commands"
DEFTEXT 1,0,0,6
PRINT AT(6,4);"Q ..... QUIT (exits VIEW MODE back to COMMAND MODE.)"
PRINT AT(6,5);"O ..... ON/OFF (toggles mouse option buttons.)"
PRINT AT(6,6);"D ..... DELETE (confirmation required.)"
PRINT AT(6,7);"J ..... JUMP (enter CD number and press return.)"
PRINT AT(6,8);"S ..... SORT (sort CD's using multiple fields.)"
PRINT AT(6,9);"E ..... EDIT (press return to leave fields unchanged.)"
PRINT AT(6,10);"F ..... FIND (search within any field for any string.)"
PRINT AT(6,11);"H ..... HARDCOPY (Alt/Help aborts screendump.)"
PRINT AT(6,12);"M ..... MARKS (any one CD, 'R' retrieves it instantly.)"
PRINT AT(6,13);"! ..... DEMO (cycles through CD's, any key exits.)"
DEFTEXT 3,0,0,6
PRINT AT(6,14);"Left Mouse or '+' ..... moves forward through CD's."
PRINT AT(6,15);"Right Mouse or '-' .... moves backwards through CD's."
PRINT AT(6,16);"TO EXIT-click on CLOSE BOX within tray or hit 'Q' key."
DEFTEXT 2,0,0,6
PRINT AT(6,18);v0_13#;" CD'S IN MEMORY FREE MEMORY=";FRE(0);"K"
DEFTEXT 1,0,0,6
DEFLINE 1,1,0,0
BOX 221,135,274,145
PRINT AT(31,18);"OK"
SHOWM
DO
EXIT IF INKEY$<>""
LOOP UNTIL MOUSEK=1 AND MOUSEX>221 AND MOUSEX<273 AND MOUSEY>135 AND MOUSEY<145
PBOX 221,135,274,145
DEFTEXT 0,0,0,6
GRAPHMODE 2
PRINT AT(31,18);"OK"
GRAPHMODE 1
DEFTEXT 1,0,0,6
PAUSE 5
TOPW #0
SETCOLOR 2,7,7,7
CLOSEW 1
OPENW 0
CLS
SETCOLOR 2,0,5,6
IF v0_36#<>1 THEN
PUT 232,15,v1_11$
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
PRINT AT(39,13);v5_4$(v0_2#)
PRINT AT(38,14);v0_2#;"/";v0_13#
ENDIF
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_2D
CLS
PRINT AT(8,5);"SEARCHING FOR:"
v2_1B%=((27-LEN(v1_13$))/2)+1
DEFTEXT 3,0,0,6
PRINT AT(v2_1B%,6);v1_13$
DEFTEXT 1,0,0,6
v2_E%=0
v2_13%=0
DEFTEXT 2,0,0,6
PRINT AT(3,9);"STRING SEARCH SHOULD BE:"
DEFTEXT 1,0,0,6
DEFLINE 1,1,0,0
BOX 30,78,190,90
BOX 30,94,190,106
PRINT AT(6,11);"1. Unconditional"
PRINT AT(6,13);"2. Case Sensitive"
SHOWM
DO
IF MOUSEK=1 AND MOUSEX>30 AND MOUSEX<190
v2_E%=MOUSEY
EXIT IF v2_E%>78 AND v2_E%<90
EXIT IF v2_E%>94 AND v2_E%<106
ENDIF
v1_1A$=INKEY$
IF v1_1A$<>"" THEN
v2_13%=VAL(v1_1A$)
EXIT IF v2_13%>=1 AND v2_13%<=2
ENDIF
LOOP
DEFTEXT 0,0,0,6
GRAPHMODE 2
IF v2_E%>78 AND v2_E%<90 OR v2_13%=1 THEN
PBOX 30,78,190,90
PRINT AT(6,11);"1. Unconditional"
v2_13%=1
ENDIF
IF v2_E%>94 AND v2_E%<106 OR v2_13%=2 THEN
PBOX 30,94,190,106
PRINT AT(6,13);"2. Case Sensitive"
v2_13%=2
ENDIF
PAUSE 5
GRAPHMODE 1
DEFTEXT 1,0,0,6
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_32
v2_E%=0
v2_13%=0
DEFLINE 1,1,0,0
BOX 50,30,170,42
BOX 50,46,170,58
BOX 50,62,170,74
BOX 50,78,170,90
BOX 50,94,170,106
BOX 50,110,170,122
PRINT AT(12,5);"Edit"
PRINT AT(12,7);"Jump"
PRINT AT(12,9);"Delete"
PRINT AT(12,11);"Sort"
PRINT AT(12,13);"Find"
PRINT AT(11,15);"Hardcopy"
SHOWM
DO
IF MOUSEX<35 OR MOUSEX>180 OR MOUSEY<20 OR MOUSEY>130 THEN
PUT 1,30,v1_22$
' FOR pr%=2 TO 17
' PRINT AT(5,pr%);" "
' NEXT pr%
EXIT IF 1=1
ENDIF
IF MOUSEK=1 AND MOUSEX>50 AND MOUSEX<170
v2_E%=MOUSEY
EXIT IF v2_E%>30 AND v2_E%<42
EXIT IF v2_E%>46 AND v2_E%<58
EXIT IF v2_E%>62 AND v2_E%<74
EXIT IF v2_E%>78 AND v2_E%<90
EXIT IF v2_E%>94 AND v2_E%<106
EXIT IF v2_E%>110 AND v2_E%<122
ENDIF
v1_F$=INKEY$
IF v1_F$<>"" THEN
v1_F$=UPPER$(v1_F$)
EXIT IF v1_F$="E" OR v1_F$="J" OR v1_F$="D" OR v1_F$="S" OR v1_F$="F" OR v1_F$="O" OR v1_F$="M" OR v1_F$="H" OR v1_F$="R" OR v1_F$="!" OR v1_F$="Q"
ENDIF
LOOP
DEFTEXT 0,0,0,6
GRAPHMODE 2
IF v2_E%>30 AND v2_E%<42 OR v1_F$="E" THEN
PBOX 50,30,170,42
PRINT AT(12,5);"Edit"
v1_F$="E"
ENDIF
IF v2_E%>46 AND v2_E%<58 OR v1_F$="J" THEN
PBOX 50,46,170,58
PRINT AT(12,7);"Jump"
v1_F$="J"
ENDIF
IF v2_E%>62 AND v2_E%<74 OR v1_F$="D" THEN
PBOX 50,62,170,74
PRINT AT(12,9);"Delete"
v1_F$="D"
ENDIF
IF v2_E%>78 AND v2_E%<90 OR v1_F$="S" THEN
PBOX 50,78,170,90
PRINT AT(12,11);"Sort"
v1_F$="S"
ENDIF
IF v2_E%>94 AND v2_E%<106 OR v1_F$="F" THEN
PBOX 50,94,170,106
PRINT AT(12,13);"Find"
v1_F$="F"
ENDIF
IF v2_E%>110 AND v2_E%<122 OR v1_F$="H" THEN
PBOX 50,110,170,122
PRINT AT(11,15);"Hardcopy"
v1_F$="H"
ENDIF
PAUSE 5
GRAPHMODE 1
DEFTEXT 1,0,0,6
PUT 1,30,v1_22$
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_34
CLS
PRINT AT(8,5);"SEARCHING FOR:"
v2_1B%=((27-LEN(v1_13$))/2)+1
DEFTEXT 3,0,0,6
PRINT AT(v2_1B%,6);v1_13$
DEFTEXT 1,0,0,6
v2_E%=0
v2_13%=0
DEFTEXT 2,0,0,6
PRINT AT(6,9);"Search characters:"
DEFTEXT 1,0,0,6
DEFLINE 1,1,0,0
BOX 30,78,190,90
BOX 30,94,190,106
PRINT AT(6,11);"1. Equal To"
PRINT AT(6,13);"2. Not Equal To"
SHOWM
DO
IF MOUSEK=1 AND MOUSEX>30 AND MOUSEX<190
v2_E%=MOUSEY
EXIT IF v2_E%>78 AND v2_E%<90
EXIT IF v2_E%>94 AND v2_E%<106
ENDIF
v1_1A$=INKEY$
IF v1_1A$<>"" THEN
v2_13%=VAL(v1_1A$)
EXIT IF v2_13%>=1 AND v2_13%<=2
ENDIF
LOOP
DEFTEXT 0,0,0,6
GRAPHMODE 2
IF v2_E%>78 AND v2_E%<90 OR v2_13%=1 THEN
PBOX 30,78,190,90
PRINT AT(6,11);"1. Equal To"
v2_13%=1
ENDIF
IF v2_E%>94 AND v2_E%<106 OR v2_13%=2 THEN
PBOX 30,94,190,106
PRINT AT(6,13);"2. Not Equal To"
v2_13%=2
ENDIF
PAUSE 5
GRAPHMODE 1
DEFTEXT 1,0,0,6
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_35
GET 232,15,639,199,v1_23$
CLS
CLOSEW 0
CLS
PUT 117,2,v1_23$
ALERT 2," Please Setup Printer|ALT/HELP WILL ABORT PRINTOUT| | Begin Screendump?",1,"Yes|Cancel",v2_1C%
IF v2_1C%=1 AND GEMDOS(17)=0 THEN
ALERT 1,"PRINTER|NOT|RESPONDING!",1,"Abort",v2_9%
v2_1C%=2
ENDIF
IF v2_1C%=1 THEN
HIDEM
HARDCOPY
SHOWM
ENDIF
CLS
MENU v5_0$()
OPENW 0
GOSUB vB_D
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
IF v2_1E%=v0_2# THEN
DEFTEXT 2,0,0,6
TEXT 520,120,CHR$(8)
DEFTEXT 1,0,0,6
ENDIF
PRINT AT(38,14);v0_2#;"/";v0_13#
PRINT AT(39,13);v5_4$(v0_2#)
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_36
IF v2_1E%<>v0_2# THEN
IF v2_1E%<>0 THEN
v0_2#=v2_1E%
GOSUB vB_D
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
DEFTEXT 2,0,0,6
' PRINT AT(66,15);CHR$(249)
TEXT 520,120,CHR$(8)
DEFTEXT 1,0,0,6
PRINT AT(39,13);v5_4$(v0_2#)
PRINT AT(38,14);v0_2#;"/";v0_13#
ENDIF
ENDIF
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_3B
CLOSE #1
v1_D$=""
DEFMOUSE 0
ON ERROR
RESUME vA_C
RETURN
> PROCEDURE vB_3C
HIDEM
PUT 8,68,v1_15$
v0_32#=5
DO
ADD v0_31#,1
FOR v2_23%=1 TO 2000 STEP v0_32#
SETCOLOR 2,v2_23%
NEXT v2_23%
ADD v0_32#,5
IF v0_32#>300 THEN
v0_32#=5
ENDIF
IF v0_31#>550 THEN
ADD v0_2#,1
IF v0_2#>v0_7# THEN
v0_2#=1
ENDIF
PUT 232,15,v1_11$
PRINT AT(38+(32-LEN(v5_1$(v0_2#)))/2,9);v5_1$(v0_2#)
PRINT AT(39+(32-LEN(v5_2$(v0_2#)))/2,17);v5_2$(v0_2#)
PRINT AT(39+(32-LEN(v5_6$(v0_2#)))/2,19);v5_6$(v0_2#)
PRINT AT(65,13);v5_3$(v0_2#)
IF VAL(v5_7$(v0_2#))>0 AND VAL(v5_7$(v0_2#))<6 THEN
PRINT AT(65,14);v5_7$(v0_2#);"/5"
ENDIF
PRINT AT(39,13);v5_4$(v0_2#)
PRINT AT(38,14);v0_2#;"/";v0_13#
v0_31#=1
ENDIF
LOOP UNTIL INKEY$<>""
SETCOLOR 2,0,5,6
PUT 1,30,v1_22$
WHILE INKEY$<>""
WEND
SHOWM
RETURN
> PROCEDURE vB_3D
' CLS
' SETCOLOR 2,0,5,6
MENU OFF
v2_2B%=MENU(14)
SELECT v2_2B%
CASE 13631
CLS
SETCOLOR 2,0,5,6
GOSUB vB_47
CLS
SETCOLOR 2,7,7,7
CASE 25088
CLS
SETCOLOR 2,0,5,6
v0_36#=1
GOSUB vB_2B
CLS
SETCOLOR 2,7,7,7
CASE 9836
CLS
SETCOLOR 2,0,5,6
GOSUB vB_7
CLS
SETCOLOR 2,7,7,7
CASE 9804
CLS
SETCOLOR 2,0,5,6
GOSUB vB_7
CLS
SETCOLOR 2,7,7,7
CASE 8019
IF v5_1$(1)<>"" THEN
CLS
SETCOLOR 2,0,5,6
GOSUB vB_6
CLS
SETCOLOR 2,7,7,7
ENDIF
CASE 8051
IF v5_1$(1)<>"" THEN
CLS
SETCOLOR 2,0,5,6
GOSUB vB_6
CLS
SETCOLOR 2,7,7,7
ENDIF
CASE 12118
IF v5_1$(1)<>"" THEN
CLS
SETCOLOR 2,0,5,6
GOSUB vB_4
CLS
SETCOLOR 2,7,7,7
ENDIF
CASE 12150
IF v5_1$(1)<>"" THEN
CLS
SETCOLOR 2,0,5,6
GOSUB vB_4
CLS
SETCOLOR 2,7,7,7
ENDIF
CASE 4709
CLS
SETCOLOR 2,0,5,6
GOSUB vB_3
CLS
SETCOLOR 2,7,7,7
CASE 4677
CLS
SETCOLOR 2,0,5,6
GOSUB vB_3
CLS
SETCOLOR 2,7,7,7
CASE 6512
IF v5_1$(1)<>"" THEN
CLS
SETCOLOR 2,0,5,6
GOSUB vB_1B
CLS
SETCOLOR 2,7,7,7
ENDIF
CASE 6480
IF v5_1$(1)<>"" THEN
CLS
SETCOLOR 2,0,5,6
GOSUB vB_1B
CLS
SETCOLOR 2,7,7,7
ENDIF
CASE 4113
CLS
SETCOLOR 2,0,5,6
v2_26%=1
IF v5_1$(1)<>"" THEN
ALERT 2,"HAVE YOU SAVED YOUR CD'S!| | EXIT?| ARE YOU SURE?",2,"Exit|Cancel",v2_26%
ENDIF
IF v2_26%=1 THEN
SETCOLOR 2,0,5,6
CLS
SYSTEM
ENDIF
CLS
SETCOLOR 2,7,7,7
ENDSELECT
MENU OFF
' CLS
' SETCOLOR 2,7,7,7
PUT 200,68,v1_15$
IF v5_1$(1)<>"" THEN
MENU 12,3
MENU 13,3
MENU 17,3
ELSE
MENU 12,2
MENU 13,2
MENU 17,2
ENDIF
v0_36#=0
FOR v2_9%=1 TO 20
ON MENU KEY GOSUB vB_4F
ON MENU
NEXT v2_9%
ON MENU KEY GOSUB vB_3D
' PAUSE 20
RETURN
> PROCEDURE vB_44
v2_13%=0
DEFTEXT 1,0,0,6
DEFLINE 1,1,0,0
BOX 30,78,190,90
BOX 30,94,190,106
PRINT AT(10,11);"1. Delete"
PRINT AT(10,13);"2. Skip"
SHOWM
DO
IF MOUSEX>237 AND MOUSEX<261 AND MOUSEY>7 AND MOUSEY<17 AND MOUSEK=1 THEN
v2_13%=4
GOTO vA_11
ENDIF
IF MOUSEK=1 AND MOUSEX>30 AND MOUSEX<190
v2_E%=MOUSEY
EXIT IF v2_E%>78 AND v2_E%<90
EXIT IF v2_E%>94 AND v2_E%<106
ENDIF
v1_1A$=INKEY$
IF v1_1A$<>"" THEN
v2_13%=VAL(v1_1A$)
EXIT IF v2_13%>=1 AND v2_13%<=2
ENDIF
LOOP
DEFTEXT 0,0,0,6
GRAPHMODE 2
IF v2_E%>78 AND v2_E%<90 OR v2_13%=1 THEN
PBOX 30,78,190,90
PRINT AT(10,11);"1. Delete"
v2_13%=1
ENDIF
IF v2_E%>94 AND v2_E%<106 OR v2_13%=2 THEN
PBOX 30,94,190,106
PRINT AT(10,13);"2. Skip"
v2_13%=2
ENDIF
PAUSE 5
vA_11:
GRAPHMODE 1
DEFTEXT 1,0,0,6
PUT 2,30,v1_22$
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_46
v1_26$=""
RESTORE vA_13
DO
READ v0_38#
v1_26$=v1_26$+CHR$(v0_38#)
LOOP UNTIL v0_38#=-1
vA_13:
DATA 0,113,0,78,0,2,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,11,0,0,239,235,16,0,250,64,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 141,0,2,207,255,48,0,111,230,144,0
DATA 40,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,4,0,0,73,255
DATA 0,0,249,255,6,0,255,251,0,4,18
DATA 0,64,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,95,0,0,229,157,0
DATA 0,159,191,0,0,254,255,0,0,233,0
DATA 22,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,10,255,0,0,231,255,0,0
DATA 254,149,1,106,85,98,170,157,255,224,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,15,63,0,192,255,11,0,244,127
DATA 255,128,0,249,191,6,64,153,16,102,224
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,95,255,0,0,125,0,130,255,31,249
DATA 224,0,255,98,0,157,250,3,5,252,0
DATA 0,0,0,0,0,0,0,0,7,0,0
DATA 255,240,0,15,0,144,255,111,0,127,255
DATA 128,255,148,0,11,190,132,65,123,192,0
DATA 0,0,0,0,0,0,0,1,0,0,127
DATA 240,0,15,7,12,248,243,32,35,223,220
DATA 251,127,0,128,85,240,170,15,0,0,192
DATA 0,0,0,0,0,0,1,0,0,103,128
DATA 0,127,17,223,238,32,88,79,167,176,127
DATA 255,128,0,63,255,64,0,192,0,0,0
DATA 0,0,0,0,0,31,0,0,255,160,0
DATA 95,66,254,189,1,207,239,48,16,223,231
DATA 0,0,191,239,0,16,240,0,0,0,0
DATA 0,0,0,0,11,0,0,255,31,0,224
DATA 239,253,16,0,255,255,0,0,251,251,0
DATA 4,215,151,0,104,252,0,0,0,0,0
DATA 0,0,0,23,0,8,255,254,0,0,88
DATA 1,0,0,7,254,0,0,247,154,0,101
DATA 251,196,4,59,11,0,244,0,0,0,0
DATA 0,0,61,0,2,240,12,7,240,0,0
DATA 0,0,33,192,0,0,159,239,0,16,67
DATA 128,188,127,2,128,253,0,0,0,0,0
DATA 0,23,0,0,56,0,71,192,0,0,0
DATA 0,16,88,0,0,0,186,0,5,0,0
DATA 255,255,3,192,252,0,0,0,0,0,0
DATA 121,0,0,95,192,32,0,0,0,0,0
DATA 1,48,0,0,0,13,0,2,64,0,191
DATA 255,3,192,252,0,0,0,0,0,0,88
DATA 0,32,166,0,0,0,0,0,0,0,0
DATA 28,0,0,0,0,0,0,128,0,47,255
DATA 6,48,217,192,0,0,0,0,2,237,0
DATA 0,4,0,0,0,0,0,0,0,0,7
DATA 0,0,152,0,0,0,2,97,1,158,188
DATA 240,3,0,0,0,0,0,7,180,0,0
DATA 0,0,0,0,0,0,0,0,0,11,0
DATA 0,244,0,0,0,0,31,0,0,159,120
DATA 0,128,0,0,0,0,7,244,0,0,24
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,28,0,0,253,124,2
DATA 128,0,0,0,0,13,248,0,0,16,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,55,0,8,47,120,0,128
DATA 0,0,0,0,15,228,0,0,16,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,13,0,0,187,184,0,64,0
DATA 0,0,0,9,246,6,0,224,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,5,0,0,139,252,0,0,0,0
DATA 0,0,8,252,7,0,240,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,7,0,0,111,188,0,64,0,0,0
DATA 0,11,119,4,128,224,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,38,184,0,64,0,0,0,0
DATA 3,119,12,128,96,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,3
DATA 0,0,107,204,0,48,0,0,0,0,7
DATA 255,8,0,96,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,175,232,0,16,0,0,0,0,15,239
DATA 0,0,160,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,0,0
DATA 47,56,0,192,0,0,0,0,3,189,0
DATA 64,128,63,0,0,248,221,7,0,64,0
DATA 0,0,43,177,0,14,255,192,0,0,127
DATA 92,0,160,0,0,0,0,1,187,0,68
DATA 128,79,0,48,128,0,0,63,64,0,191
DATA 255,32,0,223,192,31,32,0,192,159,160
DATA 0,72,0,0,0,0,0,187,0,4,128
DATA 65,3,128,98,224,0,31,25,104,224,145
DATA 129,189,126,64,153,32,0,28,110,4,0
DATA 56,0,0,0,0,0,220,0,32,74,171
DATA 4,0,219,125,0,0,152,1,96,0,21
DATA 246,224,0,86,197,0,2,17,112,0,8
DATA 0,0,0,0,1,5,0,0,232,163,0
DATA 92,192,62,0,1,196,2,56,1,55,120
DATA 192,128,37,81,2,128,55,124,64,0,0
DATA 0,0,0,0,33,1,64,65,89,32,0
DATA 120,0,7,255,244,242,8,1,0,48,127
DATA 207,35,160,192,0,32,164,64,88,0,0
DATA 0,0,0,40,0,16,0,56,192,3,53
DATA 6,202,32,148,144,96,0,12,164,192,27
DATA 67,128,60,0,0,24,51,228,0,0,0
DATA 0,0,0,0,156,0,113,192,14,70,195
DATA 137,0,42,4,1,248,128,6,0,0,56
DATA 192,7,0,84,236,35,0,0,0,0,0
DATA 0,20,0,130,64,62,128,0,0,0,0
DATA 0,4,2,3,12,0,0,0,0,6,128
DATA 0,0,66,0,61,0,0,0,0,0,0
DATA 1,0,72,96,0,128,0,158,28,0,0
DATA 95,15,0,0,7,255,0,0,0,0,0
DATA 0,4,80,24,36,0,0,0,0,0,14
DATA 0,65,128,0,0,0,6,64,0,0,0
DATA 0,12,3,0,0,0,0,0,0,0,0
DATA 16,0,8,64,0,0,0,0,0,1,0
DATA 76,128,0,0,0,0,0,0,0,24,1
DATA 32,0,128,0,64,0,0,0,0,0,11
DATA 0,20,64,0,0,0,0,0,0,0,108
DATA 128,0,0,0,0,0,0,0,0,0,32
DATA 0,0,0,64,0,0,0,0,0,24,128
DATA 6,64,0,0,0,0,0,24,0,70,192
DATA 0,0,0,0,0,0,0,120,1,0,0
DATA 160,0,64,0,0,0,0,0,57,128,4
DATA 64,0,0,0,0,0,4,0,98,96,0
DATA 0,0,0,1,0,0,220,3,0,0,184
DATA 0,0,0,0,0,0,0,124,192,0,0
DATA 0,0,0,0,0,0,0,32,60,0,0
DATA 0,0,6,0,0,36,2,0,0,70,0
DATA 0,0,0,3,0,0,203,128,0,0,0
DATA 0,0,0,0,16,0,32,2,16,8,0
DATA 3,112,0,128,16,0,0,0,128,236,0
DATA 16,0,132,0,1,1,0,0,0,0,0
DATA 0,0,0,17,0,2,5,81,0,2,92
DATA 1,160,0,100,2,0,0,104,3,0,0
DATA 168,170,84,0,2,0,1,0,0,0,0
DATA 0,0,10,0,4,201,0,16,0,0,1
DATA 0,0,24,1,0,0,136,0,0,0,0
DATA 9,0,0,198,0,0,0,0,0,0,0
DATA 0,3,0,0,24,0,0,0,0,1,0
DATA 0,108,3,16,0,104,0,128,0,0,1
DATA 0,0,152,0,0,0,0,0,0,0,0
DATA 0,0,0,10,0,0,0,0,1,0,0
DATA 35,108,220,3,72,0,176,0,0,5,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,12,0,0,0,0,0,0,0,62
DATA 7,1,248,192,0,32,0,0,3,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,12,0,0,0,0,12,0,0,125,249
DATA 2,0,147,0,0,0,0,3,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 13,0,0,0,0,50,0,77,0,192,255
DATA 63,35,192,204,0,0,11,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,6
DATA 0,0,0,1,0,0,255,98,136,156,55
DATA 64,160,191,80,0,6,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,5,8
DATA 0,0,22,3,1,252,171,91,4,4,152
DATA 8,7,240,65,10,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,2,128,0
DATA 0,60,20,3,227,0,0,255,255,2,130
DATA 253,124,128,20,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,3,160,0,0
DATA 19,128,12,127,30,26,224,65,16,50,239
DATA 204,0,92,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,3,240,0,0,11
DATA 225,4,0,0,0,0,0,1,190,0,0
DATA 0,252,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,2,96,0,0,0,2
DATA 0,0,129,224,0,0,40,0,0,0,0
DATA 100,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,3,82,0,0,0,0,0
DATA 0,7,233,0,0,64,0,0,0,4,172
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,1,21,0,0,0,0,0,0
DATA 0,160,0,0,0,0,0,0,10,136,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,2,157,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,11,148,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,1,79,0,0,192,0,0,0,0,0
DATA 0,0,0,0,0,0,63,40,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,43,0,0,224,0,0,0,0,0,0
DATA 0,0,0,0,0,125,64,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,3
DATA 83,0,0,120,0,128,0,0,0,0,0
DATA 0,1,0,0,236,172,16,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,107
DATA 0,0,125,0,128,0,0,0,0,0,0
DATA 11,0,0,237,96,16,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,1,152,0
DATA 0,221,192,34,0,0,0,0,0,0,59
DATA 0,4,177,152,64,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,82,0,0
DATA 186,208,5,0,0,0,0,0,0,181,0
DATA 10,212,160,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,128,0,0,186
DATA 167,5,80,197,101,0,0,62,85,0,170
DATA 208,20,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,153,0,0,71,144
DATA 0,111,146,1,109,254,144,158,111,96,41
DATA 152,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,162,0,0,23,248,0
DATA 7,0,0,255,255,1,254,254,0,132,92
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,92,0,0,138,127,0,0
DATA 128,0,127,255,31,229,224,0,19,172,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,129,0,0,129,123,0,0,242
DATA 39,0,0,253,232,0,0,24,28,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,154,0,0,1,87,0,0,128,0
DATA 0,0,30,168,0,0,5,156,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,-1
RETURN
> PROCEDURE vB_47
HIDEM
CLS
DEFLINE 1,5,0,0
RBOX 110,34,520,146
SETCOLOR 1,3,3,3
SETCOLOR 2,0,0,0
' PUT 140,60,dave$
DEFTEXT 1,4,0,13
PRINT AT(44,4);"cdBASE 1.1"
DEFTEXT 1,4,0,6
PRINT AT(41,9);"by David Becker"
DEFTEXT 1,0,0,6
PRINT AT(40,11);"211-7291 Moffatt"
PRINT AT(42,12);"Richmond, B.C."
PRINT AT(42,13);"Canada V6Y2N4"
PRINT AT(37,14);"GEnie Mail to D.Becker8"
DEFTEXT 1,2,0,6
PRINT AT(34,16);" ANY KEY TO EXIT"
DEFTEXT 1,0,0,6
PUT 140,60,v1_26$
FOR v2_2A%=1 TO 30000
EXIT IF INKEY$<>""
IF v2_2A%=15000 THEN
GOSUB vB_48
ENDIF
NEXT v2_2A%
CLS
SETCOLOR 1,7,0,0
SETCOLOR 2,0,5,6
SHOWM
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_48
PUT 280,60,v1_29$
FOR v2_29%=140 TO 360
PUT v2_29%,60,v1_26$
NEXT v2_29%
DEFTEXT 1,4,0,13
PRINT AT(26,4);"cdBASE 1.1"
DEFTEXT 1,4,0,6
PRINT AT(23,10);" is in the"
PRINT AT(23,11);" Public Domain"
DEFTEXT 1,0,0,6
PRINT AT(23,13);" Written In"
PRINT AT(23,14);" GFA Basic3"
DEFTEXT 1,2,0,6
PRINT AT(20,16);" ANY KEY TO EXIT"
DEFTEXT 1,0,0,6
WHILE INKEY$<>""
WEND
RETURN
> PROCEDURE vB_4B
DEFTEXT 2,0,0,6
PRINT AT(6,2);"Print what fields?"
PRINT AT(4,20);"Spacebar clears choice."
DEFTEXT 1,0,0,6
v2_13%=0
v2_E%=0
v0_3E#=0
v0_3F#=0
v0_40#=0
v0_41#=0
v0_42#=0
v0_43#=0
DEFLINE 1,1,0,0
BOX 50,30,170,42
BOX 50,46,170,58
BOX 50,62,170,74
BOX 50,78,170,90
BOX 50,94,170,106
BOX 50,110,170,122
BOX 50,126,170,138
PRINT AT(10,5);"1. Title"
PRINT AT(10,7);"2. Artist"
PRINT AT(10,9);"3. Style"
PRINT AT(10,11);"4. SPARS"
PRINT AT(10,13);"5. Rating"
PRINT AT(10,15);"6. Length"
PRINT AT(10,17);"7. DONE"
DO
SHOWM
DO
IF MOUSEK=1 AND MOUSEX>50 AND MOUSEX<170
v2_E%=MOUSEY
EXIT IF v2_E%>30 AND v2_E%<42
EXIT IF v2_E%>46 AND v2_E%<58
EXIT IF v2_E%>62 AND v2_E%<74
EXIT IF v2_E%>78 AND v2_E%<90
EXIT IF v2_E%>94 AND v2_E%<106
EXIT IF v2_E%>110 AND v2_E%<122
EXIT IF v2_E%>126 AND v2_E%<138
ENDIF
v1_1A$=INKEY$
IF v1_1A$<>"" THEN
v2_13%=VAL(v1_1A$)
EXIT IF v2_13%>=1 AND v2_13%<=7
IF v1_1A$=" " THEN
CLS
GRAPHMODE 1
(.txt)
(.txt)